home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagn_r.zip
/
NUMBERS.SWG
/
0051_Ramdon Integer.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-24
|
200b
|
11 lines
Function RandomInteger: Integer; Assembler;
asm
mov ah,2ch
int 21h { Get a random seed from DOS's clock }
imul 9821
inc ax
ror al,1
rol ah,1 { Randomize the seed }
end;